home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / D-E / Data Card 2.5.cpt / Data Card 2.5 / background_2791.txt < prev    next >
Text File  |  1987-10-24  |  19KB  |  863 lines
  1. -- background: 2791 from stack: in.5
  2. -- bmap block id: 3730
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: File Card
  6.  
  7.  
  8. -- part 6 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=171 top=215 right=232 bottom=192
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 15420 / 15420
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Prev
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect scroll left
  23.   go to prev card
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 7 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=207 top=215 right=232 bottom=225
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 16560 / 16560
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Next
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   visual effect scroll right
  43.   go to next card
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 8 (button)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=358 top=211 right=237 bottom=388
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 6720 / 6720
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Return
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   visual effect iris close
  63.   pop card
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 43 (field)
  69. -- low flags: 00
  70. -- high flags: 0000
  71. -- rect: left=130 top=39 right=58 bottom=355
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 3
  76. -- text size: 12
  77. -- style flags: 256
  78. -- line height: 16
  79. -- part name: First
  80.  
  81.  
  82. -- part 50 (field)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=130 top=57 right=76 bottom=355
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 0
  89. -- font id: 3
  90. -- text size: 12
  91. -- style flags: 256
  92. -- line height: 16
  93. -- part name: Middle
  94.  
  95.  
  96. -- part 51 (field)
  97. -- low flags: 00
  98. -- high flags: 0000
  99. -- rect: left=130 top=75 right=94 bottom=355
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 0
  103. -- font id: 3
  104. -- text size: 12
  105. -- style flags: 256
  106. -- line height: 16
  107. -- part name: Last
  108.  
  109.  
  110. -- part 52 (field)
  111. -- low flags: 00
  112. -- high flags: 0000
  113. -- rect: left=130 top=93 right=112 bottom=355
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 0
  117. -- font id: 3
  118. -- text size: 12
  119. -- style flags: 256
  120. -- line height: 16
  121. -- part name: Address1
  122.  
  123.  
  124. -- part 53 (field)
  125. -- low flags: 00
  126. -- high flags: 0000
  127. -- rect: left=130 top=111 right=130 bottom=355
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 0
  131. -- font id: 3
  132. -- text size: 12
  133. -- style flags: 256
  134. -- line height: 16
  135. -- part name: Address2
  136.  
  137.  
  138. -- part 54 (field)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=130 top=129 right=148 bottom=355
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 0
  145. -- font id: 3
  146. -- text size: 12
  147. -- style flags: 256
  148. -- line height: 16
  149. -- part name: City
  150.  
  151.  
  152. -- part 55 (field)
  153. -- low flags: 00
  154. -- high flags: 0000
  155. -- rect: left=130 top=147 right=166 bottom=355
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 0
  159. -- font id: 3
  160. -- text size: 12
  161. -- style flags: 256
  162. -- line height: 16
  163. -- part name: State
  164.  
  165.  
  166. -- part 56 (field)
  167. -- low flags: 00
  168. -- high flags: 0000
  169. -- rect: left=130 top=165 right=184 bottom=355
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 0
  173. -- font id: 3
  174. -- text size: 12
  175. -- style flags: 256
  176. -- line height: 16
  177. -- part name: Zip
  178.  
  179.  
  180. -- part 57 (field)
  181. -- low flags: 00
  182. -- high flags: 0000
  183. -- rect: left=130 top=183 right=202 bottom=355
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 0
  187. -- font id: 3
  188. -- text size: 12
  189. -- style flags: 256
  190. -- line height: 16
  191. -- part name: HPhone
  192.  
  193.  
  194. -- part 58 (field)
  195. -- low flags: 00
  196. -- high flags: 0000
  197. -- rect: left=130 top=201 right=220 bottom=355
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 0
  201. -- font id: 3
  202. -- text size: 12
  203. -- style flags: 256
  204. -- line height: 16
  205. -- part name: WPhone
  206.  
  207.  
  208. -- part 84 (button)
  209. -- low flags: 00
  210. -- high flags: 0005
  211. -- rect: left=98 top=218 right=232 bottom=116
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Pulse
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   set hilite of background button "Pulse" to true
  223.   set hilite of background button "Tone" to false
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 85 (button)
  229. -- low flags: 00
  230. -- high flags: 0000
  231. -- rect: left=44 top=180 right=198 bottom=68
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 30696 / 30696
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: 
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   if hilite of background button "Tone" is true
  243.   then dial "ATDT" & field "HPhone" & ";" with modem else
  244.   if hilite of background button "Tone" is false
  245.   then dial "ATDP" & field "HPhone" & ";" with modem
  246. end if
  247. if hilite of background button "Macintalk" is true
  248. then play "Phone" else
  249. if hilite of background button "Macintalk" is false
  250. then Beep 1
  251. wait 1
  252. beep 1
  253. wait 1
  254. beep 1
  255. wait 1
  256. beep 1
  257. wait 1
  258. beep 1
  259. end if
  260. wait 3 seconds
  261. dial "ATH" with modem
  262. end mouseUp
  263.  
  264.  
  265.  
  266.  
  267.  
  268. -- part 95 (button)
  269. -- low flags: 00
  270. -- high flags: 4005
  271. -- rect: left=47 top=218 right=232 bottom=65
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 1
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: Tone
  280. ----- HyperTalk script -----
  281. on mouseUp
  282.   set hilite of background button "Tone" to true
  283.   set hilite of background button "Pulse" to false
  284. end mouseUp
  285.  
  286.  
  287.  
  288.  
  289. -- part 96 (button)
  290. -- low flags: 00
  291. -- high flags: 0000
  292. -- rect: left=95 top=42 right=55 bottom=122
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 0 / 0
  295. -- text alignment: 1
  296. -- font id: 0
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: First
  301. ----- HyperTalk script -----
  302. on mouseUp
  303.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  304.   if it is "Ascending"
  305.   then sort ascending by first word of first line of field "First"
  306. else if it is "Descending"
  307. then sort descending by first word of first line of field "First"
  308. end mouseUp
  309.  
  310.  
  311.  
  312.  
  313.  
  314. -- part 97 (button)
  315. -- low flags: 00
  316. -- high flags: 0000
  317. -- rect: left=85 top=59 right=73 bottom=120
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 1
  321. -- font id: 0
  322. -- text size: 12
  323. -- style flags: 0
  324. -- line height: 16
  325. -- part name: Middle
  326. ----- HyperTalk script -----
  327. on mouseUp
  328.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  329.   if it is "Ascending"
  330.   then sort ascending by first word of first line of field "Middle"
  331. else if it is "Descending"
  332. then sort descending by first word of first line of field "Middle"
  333. end mouseUp
  334.  
  335.  
  336.  
  337.  
  338.  
  339. -- part 98 (button)
  340. -- low flags: 00
  341. -- high flags: 0000
  342. -- rect: left=97 top=78 right=91 bottom=121
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 1
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: Last
  351. ----- HyperTalk script -----
  352. on mouseUp
  353.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  354.   if it is "Ascending"
  355.   then sort ascending by first word of background field "Last"
  356. else if it is "Descending"
  357. then sort descending by first word of background field "Last"
  358. end mouseUp
  359.  
  360.  
  361.  
  362.  
  363.  
  364. -- part 99 (button)
  365. -- low flags: 00
  366. -- high flags: 0000
  367. -- rect: left=73 top=96 right=108 bottom=123
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 0 / 0
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: Address 1
  376. ----- HyperTalk script -----
  377. on mouseUp
  378.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  379.   if it is "Ascending"
  380.   then sort ascending by first word of first line of field "Address 1"
  381. else if it is "Descending"
  382. then sort descending by first word of first line of field "Address 1"
  383. end mouseUp
  384.  
  385.  
  386.  
  387.  
  388.  
  389. -- part 100 (button)
  390. -- low flags: 00
  391. -- high flags: 0000
  392. -- rect: left=72 top=115 right=127 bottom=123
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 0 / 0
  395. -- text alignment: 1
  396. -- font id: 0
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: Address 2
  401. ----- HyperTalk script -----
  402. on mouseUp
  403.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  404.   if it is "Ascending"
  405.   then sort ascending by first word of first line of field "Address 2"
  406. else if it is "Descending"
  407. then sort descending by first word of first line of field "Address 2"
  408. end mouseUp
  409.  
  410.  
  411.  
  412.  
  413.  
  414. -- part 101 (button)
  415. -- low flags: 00
  416. -- high flags: 0000
  417. -- rect: left=94 top=132 right=145 bottom=121
  418. -- title width / last selected line: 0
  419. -- icon id / first selected line: 0 / 0
  420. -- text alignment: 1
  421. -- font id: 0
  422. -- text size: 12
  423. -- style flags: 0
  424. -- line height: 16
  425. -- part name: City
  426. ----- HyperTalk script -----
  427. on mouseUp
  428.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  429.   if it is "Ascending"
  430.   then sort ascending by first word of first line of field "City"
  431. else if it is "Descending"
  432. then sort descending by first word of first line of field "City"
  433. end mouseUp
  434.  
  435.  
  436.  
  437.  
  438.  
  439. -- part 102 (button)
  440. -- low flags: 00
  441. -- high flags: 0000
  442. -- rect: left=93 top=150 right=163 bottom=120
  443. -- title width / last selected line: 0
  444. -- icon id / first selected line: 0 / 0
  445. -- text alignment: 1
  446. -- font id: 0
  447. -- text size: 12
  448. -- style flags: 0
  449. -- line height: 16
  450. -- part name: State
  451. ----- HyperTalk script -----
  452. on mouseUp
  453.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  454.   if it is "Ascending"
  455.   then sort ascending by first word of first line of field "State"
  456. else if it is "Descending"
  457. then sort descending by first word of first line of field "State"
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 103 (button)
  463. -- low flags: 00
  464. -- high flags: 0000
  465. -- rect: left=101 top=169 right=182 bottom=120
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: Zip
  474. ----- HyperTalk script -----
  475. on mouseUp
  476.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  477.   if it is "Ascending"
  478.   then sort ascending by field "Zip"
  479. else if it is "Descending"
  480. then sort descending by field "Zip"
  481. end mouseUp
  482.  
  483.  
  484.  
  485. -- part 104 (button)
  486. -- low flags: 00
  487. -- high flags: 0000
  488. -- rect: left=77 top=185 right=198 bottom=122
  489. -- title width / last selected line: 0
  490. -- icon id / first selected line: 0 / 0
  491. -- text alignment: 1
  492. -- font id: 0
  493. -- text size: 12
  494. -- style flags: 0
  495. -- line height: 16
  496. -- part name: HPhone
  497. ----- HyperTalk script -----
  498. on mouseUp
  499.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  500.   if it is "Ascending"
  501.   then sort ascending by field "HPhone"
  502. else if it is "Descending"
  503. then sort descending by field "HPhone"
  504. end mouseUp
  505.  
  506.  
  507. -- part 120 (button)
  508. -- low flags: 00
  509. -- high flags: 0000
  510. -- rect: left=76 top=202 right=215 bottom=121
  511. -- title width / last selected line: 0
  512. -- icon id / first selected line: 0 / 0
  513. -- text alignment: 1
  514. -- font id: 0
  515. -- text size: 12
  516. -- style flags: 0
  517. -- line height: 16
  518. -- part name: WPhone
  519. ----- HyperTalk script -----
  520. on mouseUp
  521.   answer "Sort Ascending or Descending?:" with "Ascending" or "Descending" or "Cancel"
  522.   if it is "Ascending"
  523.   then sort ascending by field "WPhone"
  524. else if it is "Descending"
  525. then sort descending by field "WPhone"
  526. end mouseUp
  527.  
  528.  
  529. -- part 125 (button)
  530. -- low flags: 00
  531. -- high flags: 0004
  532. -- rect: left=457 top=166 right=200 bottom=500
  533. -- title width / last selected line: 0
  534. -- icon id / first selected line: 20098 / 20098
  535. -- text alignment: 1
  536. -- font id: 0
  537. -- text size: 12
  538. -- style flags: 0
  539. -- line height: 16
  540. -- part name: Home
  541. ----- HyperTalk script -----
  542. on mouseUp
  543.   set the userLevel to 5
  544.   visual effect iris close
  545.   go "Home"
  546. end mouseUp
  547.  
  548.  
  549.  
  550. -- part 126 (button)
  551. -- low flags: 00
  552. -- high flags: 0004
  553. -- rect: left=400 top=126 right=160 bottom=442
  554. -- title width / last selected line: 0
  555. -- icon id / first selected line: 22855 / 22855
  556. -- text alignment: 1
  557. -- font id: 0
  558. -- text size: 12
  559. -- style flags: 0
  560. -- line height: 16
  561. -- part name: Yearly
  562. ----- HyperTalk script -----
  563. on mouseUp
  564.   set the userLevel to 5
  565.   get the seconds
  566.   convert it to dateItems
  567.   put ((item 1 of it) - 1987) *2 into whichSix
  568.   if item 2 of it > 6 then add 1 to whichSix
  569.   visual effect zoom open
  570.   if whichSix < 1 then go card 1 of stack "DateBook"
  571.   else if whichSix > 5 then go card 5 of stack "DateBook"
  572.   else
  573.     go to card whichSix of stack "DateBook"
  574.     send "bracketWeek" && the seconds to this card
  575.   end if
  576. end mouseUp
  577.  
  578.  
  579.  
  580. -- part 127 (button)
  581. -- low flags: 00
  582. -- high flags: 0004
  583. -- rect: left=457 top=126 right=160 bottom=500
  584. -- title width / last selected line: 0
  585. -- icon id / first selected line: 21209 / 21209
  586. -- text alignment: 1
  587. -- font id: 0
  588. -- text size: 12
  589. -- style flags: 0
  590. -- line height: 16
  591. -- part name: Daily
  592. ----- HyperTalk script -----
  593. on mouseUp
  594.   set the userLevel to 5
  595.   go stack "DateBook"
  596.   goWeekly the seconds
  597.   set lockScreen to false
  598. end mouseUp
  599.  
  600.  
  601.  
  602. -- part 128 (button)
  603. -- low flags: 00
  604. -- high flags: 0004
  605. -- rect: left=400 top=166 right=200 bottom=442
  606. -- title width / last selected line: 0
  607. -- icon id / first selected line: 20965 / 20965
  608. -- text alignment: 1
  609. -- font id: 0
  610. -- text size: 12
  611. -- style flags: 0
  612. -- line height: 16
  613. -- part name: To Do
  614. ----- HyperTalk script -----
  615. on mouseUp
  616.   set the userLevel to 5
  617.   go to card "First Do" of stack "Datebook"
  618. end mouseUp
  619.  
  620.  
  621.  
  622. -- part 129 (button)
  623. -- low flags: 00
  624. -- high flags: 0004
  625. -- rect: left=400 top=206 right=240 bottom=442
  626. -- title width / last selected line: 0
  627. -- icon id / first selected line: 32670 / 32670
  628. -- text alignment: 1
  629. -- font id: 0
  630. -- text size: 12
  631. -- style flags: 0
  632. -- line height: 16
  633. -- part name: 
  634. ----- HyperTalk script -----
  635. on mouseUp
  636.   show all cards
  637. end mouseUp
  638.  
  639.  
  640.  
  641. -- part 144 (button)
  642. -- low flags: 00
  643. -- high flags: 0004
  644. -- rect: left=457 top=206 right=239 bottom=500
  645. -- title width / last selected line: 0
  646. -- icon id / first selected line: 14767 / 14767
  647. -- text alignment: 1
  648. -- font id: 0
  649. -- text size: 12
  650. -- style flags: 0
  651. -- line height: 16
  652. -- part name: About
  653. ----- HyperTalk script -----
  654. on mouseUp
  655.   if hilite of background button "Macintalk" is true then
  656.     play "Data" else
  657.     play "Sax" tempo 200 "ce e g a#w."
  658.   end if
  659.   put "Data Card     Version 2.5     October 1987" into field "B"
  660.   put "Written by:  Ken Denning    Compuserve - 72277,100    GEnie - K.Denning" into field "C"
  661.   put "Send $5.00 donation to:             AppleSeeds                The Raleigh Macintosh Users Group" into field "D"
  662.   put "P.O. Box 28623     Raleigh N.C. 27611" into field "E"
  663.   show background field "A"
  664.   show background field "B"
  665.   show background field "C"
  666.   show background field "D"
  667.   show background field "E"
  668.   show background field "F"
  669. end mouseUp
  670.  
  671.  
  672.  
  673. -- part 150 (button)
  674. -- low flags: 00
  675. -- high flags: 6005
  676. -- rect: left=256 top=218 right=232 bottom=274
  677. -- title width / last selected line: 0
  678. -- icon id / first selected line: 0 / 0
  679. -- text alignment: 1
  680. -- font id: 0
  681. -- text size: 12
  682. -- style flags: 0
  683. -- line height: 16
  684. -- part name: Macintalk
  685.  
  686.  
  687. -- part 167 (field)
  688. -- low flags: 01
  689. -- high flags: 0004
  690. -- rect: left=395 top=95 right=120 bottom=510
  691. -- title width / last selected line: 0
  692. -- icon id / first selected line: 0 / 0
  693. -- text alignment: 1
  694. -- font id: 20
  695. -- text size: 14
  696. -- style flags: 256
  697. -- line height: 18
  698. -- part name: Time
  699.  
  700.  
  701. -- part 172 (field)
  702. -- low flags: 00
  703. -- high flags: 6007
  704. -- rect: left=12 top=248 right=332 bottom=499
  705. -- title width / last selected line: 0
  706. -- icon id / first selected line: 0 / 0
  707. -- text alignment: 0
  708. -- font id: 3
  709. -- text size: 12
  710. -- style flags: 0
  711. -- line height: 16
  712. -- part name: 
  713.  
  714.  
  715. -- part 166 (field)
  716. -- low flags: 01
  717. -- high flags: 0004
  718. -- rect: left=394 top=31 right=91 bottom=509
  719. -- title width / last selected line: 0
  720. -- icon id / first selected line: 0 / 0
  721. -- text alignment: 1
  722. -- font id: 20
  723. -- text size: 14
  724. -- style flags: 256
  725. -- line height: 18
  726. -- part name: Date
  727.  
  728.  
  729. -- part 160 (field)
  730. -- low flags: 81
  731. -- high flags: 0004
  732. -- rect: left=147 top=29 right=334 bottom=358
  733. -- title width / last selected line: 0
  734. -- icon id / first selected line: 0 / 0
  735. -- text alignment: 0
  736. -- font id: 3
  737. -- text size: 12
  738. -- style flags: 0
  739. -- line height: 16
  740. -- part name: A
  741.  
  742.  
  743. -- part 161 (field)
  744. -- low flags: 80
  745. -- high flags: 0000
  746. -- rect: left=189 top=39 right=97 bottom=306
  747. -- title width / last selected line: 0
  748. -- icon id / first selected line: 0 / 0
  749. -- text alignment: 1
  750. -- font id: 3
  751. -- text size: 12
  752. -- style flags: 256
  753. -- line height: 16
  754. -- part name: B
  755.  
  756.  
  757. -- part 162 (field)
  758. -- low flags: 80
  759. -- high flags: 0000
  760. -- rect: left=156 top=112 right=169 bottom=347
  761. -- title width / last selected line: 0
  762. -- icon id / first selected line: 0 / 0
  763. -- text alignment: 1
  764. -- font id: 3
  765. -- text size: 12
  766. -- style flags: 256
  767. -- line height: 16
  768. -- part name: C
  769.  
  770.  
  771. -- part 163 (field)
  772. -- low flags: 80
  773. -- high flags: 0000
  774. -- rect: left=165 top=186 right=259 bottom=337
  775. -- title width / last selected line: 0
  776. -- icon id / first selected line: 0 / 0
  777. -- text alignment: 1
  778. -- font id: 3
  779. -- text size: 12
  780. -- style flags: 256
  781. -- line height: 16
  782. -- part name: D
  783.  
  784.  
  785. -- part 164 (field)
  786. -- low flags: 80
  787. -- high flags: 0000
  788. -- rect: left=168 top=253 right=293 bottom=337
  789. -- title width / last selected line: 0
  790. -- icon id / first selected line: 0 / 0
  791. -- text alignment: 1
  792. -- font id: 3
  793. -- text size: 12
  794. -- style flags: 256
  795. -- line height: 16
  796. -- part name: E
  797.  
  798.  
  799. -- part 165 (field)
  800. -- low flags: 81
  801. -- high flags: 0000
  802. -- rect: left=147 top=29 right=335 bottom=359
  803. -- title width / last selected line: 0
  804. -- icon id / first selected line: 0 / 0
  805. -- text alignment: 0
  806. -- font id: 3
  807. -- text size: 12
  808. -- style flags: 0
  809. -- line height: 16
  810. -- part name: F
  811. ----- HyperTalk script -----
  812. on mouseUp
  813.   hide field "B"
  814.   hide field "C"
  815.   hide field "D"
  816.   hide field "E"
  817.   hide field "F"
  818.   hide field "A"
  819. end mouseUp
  820.  
  821.  
  822.  
  823.  
  824.  
  825. -- part 168 (button)
  826. -- low flags: 00
  827. -- high flags: 0000
  828. -- rect: left=44 top=199 right=217 bottom=68
  829. -- title width / last selected line: 0
  830. -- icon id / first selected line: 30696 / 30696
  831. -- text alignment: 1
  832. -- font id: 0
  833. -- text size: 12
  834. -- style flags: 0
  835. -- line height: 16
  836. -- part name: 
  837. ----- HyperTalk script -----
  838. on mouseUp
  839.   if hilite of background button "Tone" is true
  840.   then dial "ATDT" & field "WPhone" & ";" with modem else
  841.   if hilite of background button "Tone" is false
  842.   then dial "ATDP" & field "WPhone" & ";" with modem
  843. end if
  844. if hilite of background button "Macintalk" is true
  845. then play "Phone" else
  846. if hilite of background button "Macintalk" is false
  847. then Beep 1
  848. wait 1
  849. beep 1
  850. wait 1
  851. beep 1
  852. wait 1
  853. beep 1
  854. wait 1
  855. beep 1
  856. end if
  857. wait 3 seconds
  858. dial "ATH" with modem
  859. end mouseUp
  860.  
  861.  
  862.  
  863.